home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / 1997.ZIP / INPFLD10.ARC / READCHAR.C < prev    next >
Text File  |  1987-07-24  |  502b  |  17 lines
  1. /* ------------------------------------------------------------ */
  2. /* readchar - Get a character from the keyboard. Returns an     */
  3. /*    integer from 0 to 512. Double keys have 256 added to    */
  4. /*    them, e.g., F1 (0 59) returns 315 (59 + 256)        */
  5. /*   M. Burton        20 Jul 87    Written for TurboC V1.0    */
  6. /* ------------------------------------------------------------ */
  7. #include <stdio.h>
  8.  
  9. int readchar()
  10. {
  11.   char ch;
  12.  
  13.   if (!(ch = getch()))
  14.      return((ch = getch()) + 256);
  15.   return(ch);
  16. }
  17.